begin 
	for i:=1 to 10 do
	begin
		a[i] := i;
		i:=12.3e-5
	end;
end.